From 971b8239b2044edbd7bc885e644ac9bb9a892c05 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 4 Aug 2002 16:18:18 +0000 Subject: [PATCH] (fancy-splash-frame): Check selected frame last. --- lisp/startup.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/startup.el b/lisp/startup.el index 42f2d545fea..fbcc534e31b 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1306,7 +1306,7 @@ Returning non-nil does not mean we should necessarily use the fancy splash screen, but if we do use it, we put it on this frame." (let (chosen-frame) - (dolist (frame (frame-list)) + (dolist (frame (append (frame-list) (list (selected-frame)))) (if (and (frame-visible-p frame) (not (window-minibuffer-p (frame-selected-window frame)))) (setq chosen-frame frame))) -- 2.30.2